home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 87xx / 8702b.d64 / lores editor (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  3KB  |  109 lines
  1. 10 A=A+1:IFA=1THENLOAD"LORES",8,8
  2. 15 IFA=2THENLOAD"MPKOPIER",8,8
  3. 20 POKE53281,0:POKE2,6
  4. 21 PRINT"[147][154]LORES EDITOR
  5. 30 [153]"BY HELMUT BURGEMEISTER
  6. 40 PRINT"1. BILD LADEN
  7. 50 [153]"2. BILD SPEICHERN
  8. 60 PRINT"3. BILD EDITIEREN
  9. 70 [153]"4. BILD EINFAERBEN
  10. 80 PRINT"5. DOS KOMMANDOS
  11. 100 [151]198,0:[146]198,1:[161]A$
  12. 110 A[178][197](A$)
  13. 120 [139]A$[179]"1"[176]AA$[177]"5"[167]100
  14. 130 [145]A[137]1000,2000,3000,4000,5000
  15. 1000 [153]"LOADBILD LADEN"
  16. 1010 [133]"BILDNAME";B$
  17. 1020 [153]"MIT FARBE LADEN (J/N)
  18. 1030 GOSUB9000
  19. 1040 IFA$<>"J"ANDA$<>"N"THEN1030
  20. 1050 IFA$="J"THENFA=1:GOTO1100
  21. 1060 FA=0
  22. 1100 POKE2,6:SYS828+6:OPEN2,8,2,B$+",P,R":GOSUB8000:CLOSE2:IFA<>0THEN20
  23. 1105 OPEN2,8,2,B$+",P,R"
  24. 1110 GET#2,A$:GET#2,A$
  25. 1120 FORT=0TO999
  26. 1130 GET#2,A$:IFA$=""THENA$=" "
  27. 1140 POKE1024+T,ASC(A$)
  28. 1150 NEXT
  29. 1160 CLOSE2:SYS828
  30. 1170 IFFA=0THENGOTO20
  31. 1180 OPEN2,8,2,B$+".,P,R":GOSUB8000:CLOSE2:IFA<>0THEN20
  32. 1185 OPEN2,8,2,B$+".,P,R"
  33. 1190 GET#2,A$:GET#2,A$
  34. 1200 FORT=0TO999
  35. 1210 GET#2,A$:IFA$=""THENA$=" "
  36. 1220 POKE55296+T,ASC(A$):NEXT:CLOSE2
  37. 1230 SYS828+12:GOTO20
  38. 2000 PRINT"[147]BILD SICHERN
  39. 2010 [133]"BILDNAME";B$
  40. 2020 [153]"MIT FARBE SICHERN (J/N)
  41. 2030 GOSUB9000
  42. 2040 IFA$<>"J"ANDA$<>"N"THEN2030
  43. 2050 IFA$="J"THENFA=1:GOTO2100
  44. 2060 FA=0
  45. 2100 SYS828+3:OPEN2,8,2,B$+",P,W":GOSUB8000:CLOSE2:IFA<>0THEN20
  46. 2105 OPEN2,8,2,"@:"+B$+",P,W"
  47. 2110 PRINT#2,CHR$(0);:PRINT#2,CHR$(4);
  48. 2120 FORT=0TO999
  49. 2140 PRINT#2,CHR$(PEEK(1024+T));
  50. 2150 NEXT:PRINT#2,CHR$(13)
  51. 2160 CLOSE2
  52. 2170 IFFA=0THENGOTO20
  53. 2175 SYS828+9
  54. 2180 OPEN2,8,2,B$+".,P,W":GOSUB8000:CLOSE2:IFA<>0THEN20
  55. 2185 OPEN2,8,2,"@:"+B$+".,P,W"
  56. 2190 PRINT#2,CHR$(0);:PRINT#2,CHR$(216);
  57. 2200 FORT=0TO999
  58. 2220 PRINT#2,CHR$(PEEK(55296+T));:NEXT:CLOSE2
  59. 2230 GOTO20
  60. 3000 POKE2,6:SYS828+3:SYS828+6
  61. 3010 X=40:Y=24:C=6:POKE53280,P
  62. 3020 IFY/2<>INT(Y/2)THENZ=Y-1:GOTO3022
  63. 3021 Z=Y
  64. 3022 H=PEEK(1024+((X/2)+(40*(Z/2))))
  65. 3025 IFP=0ORP=1THENSYS49152,X,Y,1,C
  66. 3027 IFP=0ORP=2THENSYS49152,X,Y,0,C
  67. 3030 IFP=0THENPOKE1024+((X/2)+(40*(Z/2))),H
  68. 3040 J=PEEK(56320)
  69. 3050 IF(JAND1)=0THENY=Y-1:IFY=-1THENY=0
  70. 3060 IF(JAND2)=0THENY=Y+1:IFY=50THENY=49
  71. 3070 IF(JAND4)=0THENX=X-1:IFX=-1THENX=0
  72. 3080 IF(JAND8)=0THENX=X+1:IFX=80THENX=79
  73. 3090 IF(JAND16)=0THENP=P+1:POKE53280,P:IFP=3THENP=0:POKE53280,P
  74. 3095 IFPEEK(203)=1THENSYS828:GOTO20
  75. 3097 IFPEEK(203)=6THENPOKE2,PEEK(55296)+1:SYS828+6:C=PEEK(2)
  76. 3098 IFPEEK(2)>253THENPOKE2,0
  77. 3099 IFPEEK(203)=4THENPOKE53281,PEEK(53281)-1
  78. 3100 GOTO3020
  79. 4000 IFFA=0THENPRINT"[147]FARBE IM SPEICHER UEBERNEHMEN (J/N)
  80. 4002 [139]FA[178]0[167][141]9000:[139]A$[178]"J"[167]FA[178]1
  81. 4010 [158]828[170]3:[151]2,6:[158]828[170]6:P[178]0:F[178]0
  82. 4015 [139]FA[178]1[167][158]828[170]9
  83. 4017 X[178]20:Y[178]12:C[178]6:[151]53280,P
  84. 4020 H[178][194](55296[170]X[170]40[172]Y)
  85. 4030 [139]P[178]0[167][151]55296[170]X[170]40[172]Y,H[171]1
  86. 4040 [139]P[178]0[167][151]55296[170]X[170]40[172]Y,H
  87. 4050 [139]P[178]1[167][151]55296[170]X[170]40[172]Y,F
  88. 4053 J[178][194](56320)
  89. 4055 [139](J[175]1)[178]0[167]Y[178]Y[171]1:[139]Y[178][171]1[167]Y[178]0
  90. 4060 [139](J[175]2)[178]0[167]Y[178]Y[170]1:[139]Y[178]25[167]Y[178]24
  91. 4070 [139](J[175]4)[178]0[167]X[178]X[171]1:[139]X[178][171]1[167]X[178]0
  92. 4080 [139](J[175]8)[178]0[167]X[178]X[170]1:[139]X[178]40[167]X[178]39
  93. 4090 [139](J[175]16)[178]0[167]P[178]1[171]P:[151]53280,P
  94. 4100 [139][194](203)[178]5[167]F[178]F[170]1
  95. 4110 [139][194](203)[178]1[167][158]828[170]12:[137]20
  96. 4120 [139][194](203)[178]4[167][151]53281,[194](53281)[171]1
  97. 4130 [139][194](203)[178]6[167][151]2,[194](55296)[171]1:[158]828[170]6:H[178][194](2)
  98. 4140 [139]H[177]254[167][151]2,0:H[178]0
  99. 4150 [137]4020
  100. 5000 [153]"LOADDOS KOMMANDOS
  101. 5010 PRINT"COMMAND:  ";:POKE631,34:POKE198,1:INPUTA$
  102. 5020 OPEN1,8,15:PRINT#1,A$:CLOSE1:GOSUB8000:GOTO20
  103. 8000 OPEN1,8,15:INPUT#1,A,A$,B,C
  104. 8010 IFA<>0THENPRINT"STATUS: "A" "A$" "B" "C
  105. 8020 CLOSE1:IFA<>0THENGOSUB9000
  106. 8030 RETURN
  107. 9000 POKE198,0:WAIT198,1:GETA$:RETURN
  108. 10000 PRINTPEEK(203);:GOTO10000
  109.